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-- File: BootCache.Mesa 

-- Last edited by Sandman; May 10, 1978 9:27 AM 

DIRECTORY 

AllocDefs: FROM "allocdefs", 
AUoDefs: FROM "aUodefs'\ 
AUoFileDefs: FROM "al tof iledef s" . 
BootCacheDefs: FROM "bootcachedef s". 
CommanderDefs: FROM "commanderdef s" , 
InlineOefs: FROM "in! inedef s" . 
SegmentDefs: FROM "segmentdef s" . 
SystemDefs: FROM "systemdef s" , 
WartDefs: FROM "wartdefs"; 

BootCache: PROGRAM 

IMPORTS AllocDefs, CommanderDefs, SegmentDefs, SystemDefs 
EXPORTS BootCacheDefs ■ 
BEGIN OPEN BootCacheDefs; 

SwapStrategy: TYPE = Al locDef s .SwapStrategy; 
PageNumber: TYPE = AltoDefs .PageNumber; 
FileHandle: TYPE » SegmentDefs. FileHandle; 
FileSegmentHandle: TYPE ■ SegmentDefs. FileSegmentHandle; 
PageSize: CARDINAL = Al toDef s . PageSize; 

Def aul tCacheSize: CARDINAL ♦- 50; -- number of pages to keep in core 
maxsegments: CARDINAL ♦- 0; -- number of pages to keep in core 

CS: DESCRIPTOR FOR ARRAY OF CoreSegmentObject ; 

CoreFile: SegmentDefs . FileHandle; 

PageList: DESCRIPTOR FOR ARRAY OF Pageltem; 

Fpage: PageNumber; -- last page allocated in file 

CacheSwap: SwapStrategy ♦- SwapStrategy[l ink: ,proc:AnocDef s.CantSwap]; 

CodeSwap: SwapStrategy <- SwapStrategy[l ink: ,proc:Al locDefs.TryCodeSwapping]; 

FirstPage, LastPage: PageNumber; 

CreationAl lowed: BOOLEAN ♦- TRUE; 

InitCoreCache: PUBLIC PROCEDURE [name: STRING, FirstVMPage, LastVMPage: PageNumber] 
BEGIN OPEN SystemDefs, SegmentDefs; 
i: CARDINAL; 

IF maxsegments = THEN SetCacheSize[Def aultCacheSize] ; 
PageList ^ DESCRIPTORC 

AnocateResidentSegment[(LastVMPage+l)*SIZE[PageItem]], 
LastVMPage+1 --, Pageltem--]; 
FOR i IN [0. .LastVMPage] DO PageList[i] .page ^ ENDLOOP; 
CoreFile <- NewFile[name,Read+Write+Append, Defaul tVersion]; 
LockFile[CoreFile]; 
Fpage <- 0; 

AllocDefs .AddSwapStrategy[@CacheSwap]; 
AllocDefs.AddSwapStrategy[6CodeSwap]; 
FirstPage <- FirstVMPage; 
LastPage *- LastVMPage; 
CreationAllowed <- TRUE; 
RETURN 
END; 

CloseCoreCache: PUBLIC PROCEDURE » 
BEGIN OPEN SegmentDefs; 
SystemDefs.FreeSegment[BASE[CS]]; 
SystemDefs . FreeSegment[BASE[PageList]]; 
IF CoreFile. lock ff THEN UnlockFile[CoreFile]; 
IF CoreFile. lock = THEN ReleaseFile[CoreFile]; 
AllocDefs .RemoveSwapStrategy[@CacheSwap]; 
Al locDef s .RemoveSwapStrategy[@CodeSwap]; 
maxsegments ^ 0; 
RETURN 
END; 

FlushCoreCache: PUBLIC AllocDefs .SwappingProcedure « 
BEGIN 

did: BOOLEAN <- FALSE; 
i: CARDINAL; 
cs: CoreSegment; 
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CacheSwap.proc *- AllocDefs.CantSwap; 
FOR i IN [0. .maxsegments) DO 
cs*-0CS[i]; 

IF cs. segment f^ NIL THEN 
BEGIN OPEN SegmentDefs; 
did ^ TRUE; 
Un1ock[cs .segment]; 
Del eteFileSegmentfcs. segment]; 
cs.segment*-NIL; 
END; 
ENDLOOP; 
RETURN[did]; 
END; 

NewCoreSegment: PUBLIC PROCEDURE [p: POINTER TO Pageltem. cs: CoreSegment] 
BEGIN OPEN SegmentDefs; 

s: FileSegmentHandle <- NewFileSegment[CoreFne, p. page, 1, Read]; 
SetFileSegmentDA[s, p. da]; 
Swapln[s I 

SegmentFault ■> 

BEGIN 

SetEndOfFile[CoreFi1e, p. page, Al toDef s .BytesPerPage]; 

RETRY; 

END]; 
p. da ♦- GetFileSegmentDA[s]; 
cs.page ^ p. page; 
cs. segment <- s; 
RETURN 
END; 

CSrover: CARDINAL ♦• 0; 

GetCS: PUBLIC PROCEDURE [p: Pageltem] RETURNS [FileSegmentHandle] - 
BEGIN 

i: CARDINAL; 
s: FileSegmentHandle; 
sp: CoreSegment; 
BEGIN 

FOR i IN [0. .maxsegments) DO 
sp <- @CS[i]; 

IF sp. segment = NIL THEN GOTO newseg; 
IF sp.page = p. page THEN EXIT; 
REPEAT FINISHED «> 

BEGIN OPEN SegmentDefs; 
WHILE '-(sp^@CS[CSrover]).old DO 
sp.old ^ TRUE; 

CSrover *- (CSrover+l) MOD maxsegments; 
ENDLOOP; 
CSrover <- (CSrover+1) MOD maxsegments; 
s ♦" sp. segment; 
sp. segment <- NIL; 
Unlock[s]; 

DeleteFileSegment[s]; 
GOTO newseg; 
END 
ENDLOOP; 
EXITS newseg «> 
BEGIN 

cso: CoreSegmentObject; 
NewCoreSegment[@p,0cso]; 
FOR i IN [0. .maxsegments) DO 
sp *- 0CS[i]; 

IF sp. segment = NIL THEN BEGIN spt *- cso; EXIT END; 
REPEAT FINISHED «> ERROR 
ENDLOOP; 
END; 
END; 

sp.old *■ FALSE; 

CacheSwap.proc <- FlushCoreCache; 
RETURN [sp. segment] 
END; 

BadReadWrite: PUBLIC ERROR « CODE; 

CheckPage: PROCEDURE [cp: PageNumber] - 
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BEGIN 

IF PageList[cp].page # THEN RETURN; 

IF -CreationAllowed THEN ERROR BadReadWrite; 

PageList[cp] ♦- Pagelteni[page: Fpage <- Fpage+1, da: AltoFileDef s.eofDA]; 

RETURN 

END; 

READ: PUBLIC PROCEDURE [a: UNSPECIFIED] RETURNS [UNSPECIFIED] - 
BEGIN OPEN InlineDefs; 
cp: PageNumber; 

cp ^ LOOPHOLE[a,CARDINAL]/PageSize; 

IF cp -INCFirstPage. .LastPage] THEN ERROR BadReadWrite; 
CheckPage[cp]; 

RETURN [(SegmentDefs.FileSegmentAddress[GetCS[PageList[cp]]] + 
BITAND[a,PageSize-l])t]; 
END; 

WRITE: PUBLIC PROCEDURE [a: UNSPECIFIED, v: UNSPECIFIED] ■ 
BEGIN OPEN InlineDefs; 
cp: PageNumber; 
s : Segmen tDef s . Fi 1 eSegmentHandl e ; 

cp <- L0OPH0LE[a.CARDINAL]/PageSize; 

IF cp -INCFirstPage. .LastPage] THEN ERROR BadReadWrite; 

CheckPage[cp]; 

(SegmentDefs.F^leSegmentAddress[s^GetCS[PageList[cp]]] + 

BirAND[a,PageSize-l])t <- v; 
s. write ♦- TRUE; 
RETURN 
END; 

GetPageltem: PUBLIC PROCEDURE [page: CARDINAL] RETURNS [p: Pageltem] ■ 
BEGIN 

p +- PageList[page]; 
RETURN 
END; 

SetPageltem: PUBLIC PROCEDURE [page: CARDINAL, p: Pageltem] » 
BEGIN 

PageList[page] ^ p; 
RETURN 
END; 

SetCoreFile: PUBLIC PROCEDURE [file: FileHandle] - 
BEGIN 

CoreFile ^ file; 
CreationAllowed <- FALSE; 
RETURN 
END; 

GetCoreFile: PUBLIC PROCEDURE RETURNS [FileHandle] « 
BEGIN 

RETURN[CoreFile] 
END; 

SetCacheSize: PUBLIC PROCEDURE [size: CARDINAL] « 
BEGIN OPEN SystemDefs; 
i: CARDINAL; 
maxsegments ^ size; 
CS ^ DESCRIPTOR[ 

Al locateResi den tSegment [max segments ♦SI ZE[CoreSegmentObject]], 

maxsegments]; 
FOR i IN [0. .maxsegments) DO CS[i].segment*-NIL ENDLOOP; 
END; 

SetDefaultCacheSize: PUBLIC PROCEDURE [size: CARDINAL] - 
BEGIN 

DefaultCacheSize ^ size; 
END; 

"- MAIN BODY 

command: CommanderDef s .CommandBlockHandle; 
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command <- CommanderDef s.AdclCommancl["SetCacheSize" , L00PH0LE[SetCacheSiz8], 1]; 

command. params[0] ^ [type: numeric, prompt: "Cache Size"]; 

END. 



